(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

;; @lisp 函数库帮助与支持，查询的函数均以 ui:confirm1 为示例 (fun:list) ;; 列出所有@lisp函数 (fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码 (fun:search "ui:");; 搜索函数库中 ui: 相关的函数 (fun:run-example funname) ;; 如果函数有示例代码，则运行示例 (fun:e.g funname) ;; 如果函数有示例代码，则运行示例 ;; 调用示例 (require 'ui:confirm1) ;; 加载用户确认对话框函数 (ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

text:mtext->text2

说明：去除多行文本中的格式化字符串，本函数为测试版，不保证结果正确。

用法：

 (text:mtext->text2 str-m)

参数：1 str-m : 字符串;

返回值：结果字符串

示例：

(defun text:mtext->text2 (str-m / lst-str str-m% purge-fmt)
    "去除多行文本中的格式化字符串，本函数为测试版，不保证结果正确。"
    "结果字符串"
    (setq lst-str (string:parse-by-lst str-m (quote ("\\"
                    "{"
                    "}"))))
    (defun purge-fmt (str-m)
        (if (/= ""
                str-m)
            (cond ((and (/= "s"
                            (substr str-m 1 1))
                        (= ";"
                            (substr str-m (strlen str-m))))
                    (setq str-m ""))
                ((and (= "s"
                            (substr str-m 1 1))
                        (= ";"
                            (substr str-m (strlen str-m)))
                        (setq str-m (substr str-m 2 (- (strlen str-m)
                                    2)))))
                (t (setq str-m (substr str-m 2)))))
        (setq lst-str (string:to-list str-m ";"))
        (if (> (length lst-str)
                1)
            (setq str-m (last lst-str)))
        str-m)
    (string:from-list (vl-remove ""
            (mapcar (quote purge-fmt)
                lst-str))
        ""))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

text:mtext->text2

上传记录